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ABSTRACT 

This  report  summarizes  the  work  on  the  evaluation,  design,  and  re¬ 
implementation  of  part  of  the  ASW  System  Evaluation  Tool  (ASSET), 
performed  in  the  Computer  Science  Department,  Naval  Postgraduate 
School,  under  the  sponsorship  of  the  Antisubmarine  Warfare  Division  (OP- 
71),  Office  of  Chief  of  Naval  Operations.  We  analyzed  and  implemented 
the  improvements  suggested  in  previous  evaluations  of  various  sub-areas 
of  ASSET.  In  addition,  we  have  designed  and  implemented  a  prototype 
user  interface  shell  for  ASSET  on  a  Sun  Sparcstation  running  X  windows. 
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Implemented  Improvements  of  the  ASSET 


1.  Detection  Model 

A  compound  Lambda- Sigma  jump  detection  model  was  implemented  to  simulate  the 
detection  of  submarines.  Also,  the  target’s  most  detectable  frequency  and  detection  rate 
were  allowed  to  vary  with  environmental  region.  Multiple  engagements  between  platforms 
were  allowed. 


2.  MPA  Model 

A  glimpse  rate  model  was  used  to  determine  detection  opportunities  of  MPA  and  to 
approximate  a  continuous-looking  sensor  pattern.  The  glimpsing  sensor  field  detects  a  target 
which  is  within  the  sensor  region  at  the  time  of  a  glimpse  with  a  probability  of  detection  of 
1.0. 

ASSET  allocates  MPA  to  cues  generated  from  the  tracker-correlator  by  selecting  SPA/ 
MPA  pairs  using  the  ratio  of  MPA’s  time  on-station  to  the  SPA  size  as  the  selection  criterion. 
If  time  permits,  the  MPA  will  stay  on  search  region  after  prosecuting  a  submarine  for 
another  detection  opportunity. 

3.  Converting  ASSET  code  to  CLOS 

We  investigated  the  feasibility  and  techniques  of  converting  current  ASSET  code  to 
CLOS.  We  used  a  conversion  utility  to  help  transform  the  ASSET  code  to  CLOS.  However, 
a  significant  portion  of  the  modification  has  to  be  performed  manually.  Due  to  time  con¬ 
straints,  only  part  of  the  conversion  task  was  completed. 

4.  Reference 

A  detail  report  of  the  work  mentioned  above  can  be  found  in:  P.-T.  Chang,  “Evaluation 
and  Improvement  of  the  ASW  System  Evaluation  Tool”,  M.S.  Thesis,  Naval  Postgraduate 
School,  Monterey,  California,  March  1992. 
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Implementation  of  a  User  Interface  Shell  for  ASSET  on  a 
SUN  SPARCstation  2  running  X  Windows 


A  prototype  User  Interface  was  designed  to  allow  similar  interaction  as  given  on  the  Mac¬ 
intosh  computers.  The  goal  was  to  allow  for  pull-down  menus  and  pop-up  dialog  boxes  in 
the  X  Window  system.  The  only  constraint  was  the  system  had  to  be  written  in  Allegro 
Common  Lisp. 

To  achieve  the  windowed  nature  of  ASSET  including  the  pull-down  menus  and  pop-up 
dialog  boxes,  it  was  necessary  to  use  a  tool  kit  that  would  give  that  functionality.  Based  on 
the  Common  Lisp  constraint,  the  Common  Lisp  Interface  Manager  (CLIM)  was  chosen  as 
the  tool  kit. 

What  follows  is  a  description  of  the  code  that  is  used  in  the  user  interface: 


File:  asset-gui.d 

Macro:  define-application-frame 

define-application-frame  is  a  CLIM  function  that  defines  an  application  frame.  This  is 
used  to  specify  the  details  of  all  panes  that  make  up  the  user  interface.  Included  in  these 
details  are  the  pane  names  and  layout.  For  any  particular  pane,  the  pane  type  and  various 
associated  functions  are  specified.  The  following  panes  are  used: 
menu  pull  down  menu  support 

geoplot  all  graphic  drawing  like  maps  will  be  drawn  here 

the  function  draw-world  is  used  to  draw  to  the  geoplot  pane 
alert  program  generated  comments  are  displayed  here 

aw  accepting  values  pane  -  this  is  the  pop-up  dialog  manager 

edit  the  pane  for  normal  user  interacting  with  the  system  other  than 

through  dialog  boxes  -  currently  the  introduction  to  the  program 
is  drawn  here  using  the  function  draw-intro 

The  layout  description  specifies  the  proportions  of  pane  sizes  that  will  make  up  the  user 
interface.  See  the  accompany  screen  snapshot 


Method:  draw-intro 

This  function  draws  the  introductory  screen  to  the  edit  pane  of  the  application.  The  calls  to 
cursor-y-percent  merely  position  the  following  line  of  text  vertically  at  that  particular  per¬ 
centage  of  the  total  page  size.  Center-text-in-window  centers  each  line  of  text  in  the  edit 
pane.  Both  of  these  funtions  together  allow  the  text  to  be  auto-centered  and  auto-placed 
independent  of  the  window  geometry. 

Function:  cursor-y-percent 


3 


Places  the  following  text  at  the  specified  percentage  down  the  edit  pane.  This  function  first 
queries  the  target  stream  for  the  overall  height.  It  then  sets  the  current  cursor  position  to  the 
proper  value  using  the  specified  percentage. 

Function:  center-text-in-window 

Centers  the  following  text  in  the  target  window.  This  is  accomplished  using  the  available 
width  from  the  target  stream,  along  with  the  string  width  to  determine  the  appropriate  offset. 

Macro:  define-asset-command  (com-simulation-asset  ... 

This  macro  describes  the  “Simulation”  pull-down  menu.  In  this  macro,  value  is  set  based 
on  the  users  selection.  Once  a  selection  is  made,  a  case  function  calls  the  proper  function  for 
each  selectable  menu  item.  In  this  case  only  two  menu  items  do  anything,  the  “Edit  Clock 
Parameters”  selection  and  the  “Quit”  selection. 

Macro:  define-asset-command  (com-map-asset « 

This  macro  describes  the  “Map”  pull-down  menu.  The  only  active  choice  is  “Edit  Loca¬ 
tion/Size”. 

Function:  set-map-specs 

This  function  is  responsible  for  displaying  the  pop-up  dialog  box  to  change  the  location  or 
the  size  of  the  displayed  map.  Through  the  pop-up,  the  user  can  specify  the  current  latitude, 
longitude  and  view  radius. 

Macro:  define-asset-command  (com-blue-side-asset ... 

This  macro  describes  the  “Blue  Side”  pull-down  menu.  There  are  no  active  selections. 

Macro:  define-asset-command  (com-red-side-asset ... 

This  macro  describes  the  “Red  Side”  pull-down  menu.  There  are  no  active  selections. 

Macro:  define-asset-command  (com-utilities-asset  ... 

This  macro  builds  the  “Utilities”  menu  and  all  associated  sub-menus.  There  are  no  active 
selections. 

Macro:  define-asset-command  (corn-workspace- asset ... 

This  macro  builds  the  “Workspace”  pull-down  menu.  There  are  no  active  selections. 

Macro:  define-asset-command  (com-moe-asset  ~ 

This  macro  builds  the  “MOE"  pull-down  menu.  There  are  no  active  selections. 

Macro:  define-asset-command  (com-choose-asset) 

This  macro  is  currently  called  when  the  user  selects  “Edit  Clock  Parameters”  from  the 
“Simulation”  pull-down  menu.  Upon  selection  a  global  variable  is  changed. 

Macro:  define-asset-command  (coin-exit-asset) 

This  macro  is  called  when  the  user  selects  “Quit”  from  the  “Simulation”  pull-down  menu. 
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Function:  run-asset 

After  setting  some  pertinent  variables,  this  function  will  create  the  top-level  application 
frame  for  the  interface  and  then  run  it. 

File:  drawing.cl 

Function:  set-default-drawing-globals 

This  function  sets  the  latitude  to  65  North  and  the  Longitude  to  10  West.  It  also  sets  the 
view  radius  of  the  map  to  1500  km. 

Method:  draw-world 

Calls  the  function  draw  map,  that  does  the  actual  drawing. 

Function:  draw-map 

Draw-map  is  responsible  for  scaling  and  drawing  information  to  the  geoplot  pane.  First, 
the  window’s  inside  height  and  width  are  determined.  Next,  the  required  spread  in  latitude 
and  longitude  for  the  specified  view-radius  is  calculated.  These  values  are  view-lat  and 
view-long  respectively.  Following  this,  the  appropriate  translations  and  scalings  to  make  the 
map  fit  in  the  window  are  calculated.  Finally,  with  the  scaling  and  translations  turned  on 
inside  of  CLIM,  the  map  is  drawn. 

In  order  to  draw  the  map,  the  data  was  put  into  a  list  of  polygons.  The  polygons  are  drawn 
one  at  a  time.  The  polygons  represent  the  coast-line  of  the  continents  and  islands. 

Following  the  map,  the  latitude  and  longitude  lines  are  drawn  and  then  the  red  dot  that 
makes  up  the  map  center. 

Function:  draw-Iat-long-lines 

Currently  the  number  of  latitude  and  longitude  lines  to  draw  is  determined  by  the  magni¬ 
tude  of  the  view  radius.  If  the  view  radius  is  greater  than  8000  km,  then  latitude  lines  are 
drawn  every  10  degrees  and  longitude  lines  are  drawn  every  20  degrees.  If  the  view  radius  is 
between  3000  km  and  8000  km,  then  the  lines  are  drawn  every  10  degrees  for  latitude  and 
every  15  degrees  for  longitude.  The  final  division  is  at  a  view  radius  of  less  than  3000  km. 
For  this  case,  the  latitude  and  longitude  lines  are  drawn  every  5  degrees  and  10  degrees 
respectively. 

Function:  draw-map-center 

A  simple  red  circle  marks  the  center  of  the  map. 

File:  utlls.d 

Function:  create-asset-map 

This  function  opens  the  raw  map  data  file,  and  reads  each  polygon.  Based  on  the  size  of 
the  polygon,  that  is  the  number  of  points,  the  polygon  is  saved  or  discarded.  This  is  a  over¬ 
simplified  filter  that  throws  out  the  smaller  polygons,  so  as  to  not  clutter  up  the  map. 
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File:  load-em.cl 


This  file  will  load  the  three  parts  of  the  interface,  namely  asset-gui.cl,  new*map.cl,  and 
drawing.cl. 


Running  Asset: 

To  run  asset,  be  on  a  machine  that  has  Allegro  Common  lisp  and  supports  CLEM.  Start 
Common  Lisp,  and  execute  (load  " load-enucl ”).  This  will  load  all  the  pertinent  files.  After 
this,  the  root  window  must  be  created.  To  do  this,  execute  (setq  *root*  (clim: open-root-win¬ 
dow  :clx)).  Once  the  root  window  is  created,  ASSET  can  be  run  by:  (run-asset  *root*h 


6 


Appendix:  Source  code  for  the  User  Interface  Shell  for  ASSET  on  a 
Sun  Sparcstation  2  running  X  windows 


;;;  File:  asset-gui.cl 
(setq  *var*  1) 


(clim-.def  ine-application-frame  asset  {) 

() 

( : panes  ((title  stitle 

: display-string  ’New  Asset*) 

(menu  : command -menu 

:default-size  : compute) 

(geoplot  : application 

: default -text- style  '(:fix  :bold  :very-large) 
: scroll-bars  nil 
jdisplay-function  'draw-world) 

(alert  : application 

: default- text -style  '(:fix  rbold  :very-large) 

: scroll-bars  nil) 

(aw  raccept -values 

: display-function  '  (dim: accept -values-pane- 

displayer 


:displayer  display-aw) ) 

(edit  :application 

: default -text -style  '(:fix  rbold  :very-large) 
:display-function  'draw-intro 
:scroll-bars  nil))) 

( : layout  ( (default 

(: column  :rest 

(menu  : compute) 

(:row  :rest 

(:column  :rest 

(geoplot  :rest) 

(alert  1/4)) 

(edit  1/3))))))) 


(defmethod  draw-intro  ((frame  asset)  stream) 
(cursor-y-percent  frame  stream  10) 
(center-text-in-window  stream  ‘ASSET* ) 
(terpri  stream) 

(cursor-y-percent  frame  stream  25) 

(center- text- in-window  stream  *ASW  SYSTEMS*) 
(terpri  stream) 

(center-text-in-window  stream  ’EVALUATION*) 
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(terpri  stream) 

(center-text-in-window  stream  ‘TOOL’) 

(terpri  stream) 

(cursor-y-percent  frame  stream  60) 

(center-text-in-window  stream  "Allegro  CL") 

(terpri  stream) 

(center-text-in-window  stream  "Build  0.1") 

(terpri  stream) 

(cursor-y-percent  frame  stream  85) 

(center-text-in-window  stream  "01  June  1992")) 

(defun  cursor-y-percent  (frame  stream  percentage) 

(setq  height  (clim:window-inside-height  (dim: get-frame-pane  frame 
' edit) ) ) 

(multiple-value-bind  (current-x-position  current-y-position) 

(dim: stream-cursor-position*  stream) 

(setq  new-y-position  (floor  (*  height  (/  percentage  100)))) 
(dim: stream-set-cursor-position*  stream 

current-x-position 
new-y-position) ) ) 

(defun  center-text -in-window  (stream  text) 

(setq  avail-width  (dim: stream-text -margin  stream)) 

(setq  string-width  (dim: text-size  stream  text)) 

(dim: indenting-output  (stream  (floor  (/  (-  avail-width  string- 
width)  2))) 

(format  stream  text))) 

(def ine-asset-command  (com-simulation-asset  :menu  "Simulation") 

() 

(setq  value 

(dim:  menu  -  choose 

'(("Edit  Clock  Parameters"  rvalue  1) 

("Edit  Umpire  Parameters"  rvalue  2) 

("Environmental  Parameters  ->" 
ritem-list  ((’Enter  Noise  Freqs"  rvalue  3) 

("Enter  Proploss  Curves"  rvalue  4) 

("Define  Environmental  Regions"  rvalue  5))) 
("Start  Simulation"  rvalue  6) 

("Abort  Simulation"  rvalue  7) 

("Pause"  rvalue  8) 

("Continue"  rvalue  9) 

("Mode  ->" 

ritem-list  (("Event  Step"  rvalue  10) 

("Time  Step"  rvalue  11))) 

("Save  to  Disk’  rvalue  12) 
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( "Quit*  rvalue  13) ) 

: label  ‘Simulation*)) 

(case  value 

(1  (com-choose-asset) ) 

(13  (com-exit-asset) ) ) ) 

(def ine-asset -command  (com-map-asset  tmenu  ‘Map“) 

() 

(setq  value 

(dim:  menu- choose 
'(("Edit  Location/Size"  rvalue  1) 

(‘Refresh*  rvalue  2) 

("Plot  Blue  Tactical  Picture*  rvalue  3) 

('Plot  Red  Tactical  Picture"  rvalue  4) 

(“Turn  Display  Off*  rvalue  5)) 

: label  *Map*)) 

(case  value 

(1  (set-map-specs)))) 

(defun  set-map-specs  () 

(let  ((stream  (dim:  frame-query-io  dim: ‘application-frame* ))  ) 
(climraccepting-values  (stream  : own-window  t  : label  "Map 
Location  /  Size*) 

(setq  *lat*  (climraccept  'integer  rdefault  *lat* 

rprompt  ‘Latitude  (Degrees)" 

: stream  stream)) 

(terpri  stream) 

(setq  ‘long*  (climraccept  'integer  rdefault  ‘long* 

rprompt  "Longitude  (Degrees)" 

: stream  stream)) 

(terpri  stream) 

(setq  ‘view-radius*  (climraccept  'float  rdefault  ‘view- 

radius* 

rprompt  "View  Radius" 

: stream  stream)) 

(terpri  stream) 

(dim ; accept-values-command-button  (stream)  "View  Entire 

World" 

(setq  ‘full-screen-view*  1))))) 

(def ine-asset-command  (com-blue-side-asset  rmenu  "Blue  Side") 

() 

(setq  value 

(dim:  menu  -  choose 
'(("Submarine"  rvalue  1) 

("Level  1  Command"  rvalue  2) 
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(•Level  2  Command"  : value  3) 

("ASWCC"  : value  4) 

("Fusion  Center"  ; value  5) 

("MPA  Squadron"  : value  6) 

("Sub  Op  Auth"  : value  7) 

("Comm  Sat"  :value  8) 

("Sensing  Sat"  rvalue  9) 

("FAS  Coverage  Area"  :value  10) 

("SURTASS"  : value  11) 

("Surface  Formation"  : value  12) 

( * HFDF "  : value  13) 

("Mine  Field"  rvalue  14) 

("Trip  Wire"  rvalue  15)) 

•.label  “Blue  Side*))) 

(def ine-asset-command  (com-red-side-asset  rmenu  "Red  Side") 

() 

(setq  value 

(climrmenu-choose 
'  ( ( "Submarine-*  rvalue  1) 

("Level  1  Command"  rvalue  2) 

("Level  2  Command"  rvalue  3) 

("ASWOC"  rvalue  4) 

("Fusion  Center"  rvalue  5) 

("MPA  Squadron"  rvalue  6) 

("Sub  Op  Auth"  rvalue  7) 

("Comm  Sat"  rvalue  8) 

("Sensing  Sat"  rvalue  9) 

("FAS  Coverage  Area*  rvalue  10) 

("SURTASS"  rvalue  11) 

("Surface  Formation"  rvalue  12) 

("HFDF"  rvalue  13) 

("Mine  Field*  rvalue  14) 

("Trip  Wire"  rvalue  15)) 
r label  "Red  Side"))) 

(def ine-asset-command  (com-utilities-asset  rmenu  "Utilities") 
() 

(setq  value 

(climrmenu-choose 
'(("Range  Rings  ->" 
r item-list  (("Build"  rvalue  1) 

("Plot"  rvalue  2) 

("Erase"  rvalue  3) 

("Delete"  rvalue  4) 

("Plot  Intersection"  rvalue  5) 
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(“Erase  Intersection*  :value  6))) 

(“Tracks  ->“ 

: item-list  ((“Build"  :value  7) 

(“Plot*  rvalue  8) 

(“Erase*  rvalue  9) 

(“Delete*  rvalue  10))) 

(“Regions  ->“ 

r item-list  ((“Build"  rvalue  11) 

(“Plot"  rvalue  12) 

(“Erase*  rvalue  13) 

(“Delete*  rvalue  14))) 

(“Plans  ->“ 

ritem-list  ((“Build*  rvalue  15) 

(“Plot“  rvalue  16) 

(“Erase*  rvalue  17) 

(“Delete*  rvalue  18)))) 
rlabel  “Utilities*))) 

(def ine-asset-command  (com-workspace-asset  rmenu  "Workspace*) 
0 

(setq  value 

(climrmenu-choose 
' ( (“Blue  ->“ 

ritem-list  ((“Recall*  rvalue  1) 

(*Save“  rvalue  2) 

("Delete*  rvalue  3) 

(“Clear"  rvalue  4))) 

(“Red  ->“ 

ritem-list  {(“Recall"  rvalue  5) 

(“Save*  rvalue  6) 

(“Delete"  rvalue  7) 

(“Clear*  rvalue  8)))) 
r label  “Workspace* ) ) ) 

(def ine-asset-command  (com-moe-asset  rmenu  “MOE“) 

0 

(setq  value 

( c 1 im  r  menu - choose 

'((“Display  Blue  Submarine  Attrition*  rvalue  1) 
(“Display  Blue  Surface  Engagements*  rvalue  2) 

(“Display  Blue  MPA  Attrition"  rvalue  3) 

(“Display  Red  Submarine  Attrition*  rvalue  4) 

(“Display  Red  Surface  Engagements’  rvalue  5) 

(“Display  Red  MPA  Attrition*  rvalue  6) 

(“Save  MOEs“  rvalue  7)) 
rlabel  “MOE*))) 
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(def ine-asset-command  (com-choose-asset) 

0 

(if  (=  *var*  1) 

(setq  *var*  2) 

(setq  *var*  1))) 

(def ine-asset-command  (com-exit-asset) 

() 

(dim:  frame-exit  dim:  ‘application-frame*) ) 

(defun  run-asset  (root) 

(set-default-drawing-globals) 

(setq  ‘earth-radius*  6378) 

(let  ((asset  (clim:make-application-frame  'asset 
:parent  root  -.height  400  :width  700))) 
(dim: run-frame-top-level  asset) ) ) 


; ; ;  File:  drawing . cl 

(setq  ‘earth-radius*  6378) 

(setq  ‘full-screen-view*  0) 

(defun  set-default-drawing-globals  () 

(setq  *lat*  65) 

(setq  ‘long*  -10) 

(setq  ‘view-radius*  1500)) 

(def method  draw-world  ((frame  asset)  stream) 
(draw-map  frame  stream) ) 


(defun  draw-map  (frame  stream) 

;;;  determine  the  correct  scaling  to  fit  the  world  in  the  geoplot 
pane 

(let*  ( (height  (clim:window-inside-heigbt  (clim:get-frame-pane 
frame  'geoplot))) 

(width  (clim:window-inside-width  (clim:get-frame-pane  frame 
'geoplot) ) ) 

(view-lat  (*  (*  2  (/  *view-radius*  ‘earth-radius*))  (/  180 


pi) ) ) 


180  pi))) 


(view-long  (*  (*  2  (/  *view-radius* 

(*  ‘earth-radius* 

(cos  (*  *lat*  (/  pi  180))))))  (/ 

; ; ;  calculate  the  transformations 
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(scale-x  < /  width  view-long)) 

(scale-y  (*  -1  (/  height  view-lat))) 

(trans-x  (-  (/  view-long  2)  *long*)) 

(trans-y  (*  -1  (+  (/  view-lat  2)  *lat*)))) 

;;;  adjust  the  scales  and  translations  for  the  window  shape 
(cond  ((>=  width  height) 

(setq  scale-x  (/  height  view-long) ) 

(setq  trans-x  (-  (/  {*  view-long  (/  width  height))  2) 

♦long*) ) ) 

((>  height  width) 

(setq  scale-y  (*  -1  (/  width  view-lat))) 

(setq  trans-y  (*  -1  (+  (/  (*  view-lat  (/  height  width)) 
2)  *lat*) ) ) ) ) 

(climrwith-scaling  (stream  scale-x  scale-y) 

(clim:with-translation  (stream  trans-x  trans-y) 

(dolist  (list  *swdb*) 

(clim:draw-polygon*  stream  list  rclosed  nil  :ink 
dim:  +dark-sea-green+ 

:filled  nil  : line-thickness  2)) 
(draw-lat-long-lines  frame  stream  ) 

(draw-map-center  frame  stream) ) ) ) ) 

{defun  draw-lat-long-lines  (frame  stream) 

; ; ;  the  view-radius  determines  the  number  of  lat-long  lines  to 
draw 

(cond  ((>=  *view-radius*  8000) 

(do*  ((lat  -80  (+  lat  10))) 

((=  lat  90)) 

(clim:draw-line*  stream  -180  lat  160  lat  rink 
clim:+light-blue+) ) 

(do*  ((long  -180  (+  long  20))) 

{ (=  long  200) ) 

(clim:draw-line*  stream  long  -90  long  90  rink 
clim:+light-blue+) ) ) 

((>  *view-radius*  3000) 

(do*  ((lat  -80  (  +  lat  10))) 

((=  lat  90)) 

(clim:draw-line*  stream  -180  lat  160  lat  rink 
clim:+light-blue+) ) 

(do*  ((long  -180  (+  long  15))) 

({=  long  195)) 

(climrdraw-line*  stream  long  -90  long  90  rink 
clim:+light-blue+) ) ) 

(t 

(do*  ((lat  -80  (+  lat  5))) 

((=  lat  85)) 
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(climrdraw-line*  stream  -180  lat  160  lat  rink 
clim:+light-blue+) ) 

(do*  ((long  -180  (+  long  10))) 

((=  long  190)) 

(climrdraw-line*  stream  long  -90  long  90  rink 
climr+light-blue+) ) ) ) ) 

(defun  draw-map-center  (frame  stream) 

(climrdraw-circle*  stream  *long*  *lat*  1  r line -thickness  5  rink 
climr+red+) ) 


;;;  Filer  utils. cl 
(defun-map  (filename) 

(with-open-file  (output  "asset-map2 . cl •  rdirection  r output 
rif-exists  roverwrite  r if-does-not-exist  rcreate) 
(format  output  " (setq  *swdb*-% (list-%*  ) 

(with-open-file  (input  filename  rdirection  r input) 

(let  ( (point-count  0) 

(polygon  nil)) 

(do  ((item  (read  input  nil  input)  (read  input  nil  input))) 
( (eq  item  input) ) 

(cond  ( (=  item  400) 

(if  (>  point-count  80) 

(output-polygon-to-f ile  polygon  output)) 

;;;  (format  ‘standard-output*  "-a-%"  polygon) 

(setq  polygon  nil) 

(setq  point-count  0)) 

(t 

(push  item  polygon) 

;;;  (format  ‘standard-output*  *-a-%"  polygon) 

(setq  point-count  (+  point-count  1))))))))) 

(defun  output -polygon-to- file  (poly  file) 

(format  file  "'-a-%*  poly)) 


;;;  File:  load-em.cl 

(load  "-/asset/asset-gui.cl") 
(load  • -/asset /new-map. cl") 
(load  "-/asset/drawing. cl* ) 
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